home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ COM Options 2.xpl < prev    next >
Text File  |  2000-11-12  |  2KB  |  91 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="5"
  4. "UIPATH"="Hardware\Modem\"
  5. "NAME"="COM Port Buffers"
  6. "OSVERSION"="10101"
  7. "VERSION"="1.04"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="COM1: Buffer"
  10. "TEXT 2"="COM2: Buffer"
  11. "TEXT 3"="COM3: Buffer"
  12. "TEXT 4"="COM4: Buffer"
  13. "TEXT 5"="COM5: Buffer"
  14. "DESCRIPTION 1"="To increase the buffer size (in Bytes) for characters sent/received by your communications device (modem) on a specific COM port. "
  15. "DESCRIPTION 2"="Default Buffer value is 128. High values will decrease modem transfer speed slightly, but might prevent loss of characters at high baud rates (above 9600 bps). "
  16. "DESCRIPTION 3"="Experimenting may be necessary to find your best setting."
  17. "DESCRIPTION 4"="This is only necessary for external modems, internal modems (e.g. riser-card) do not need this!"
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"=" "
  22. "COMMENT 2"="Thanks to AXCEL216!"
  23. "COMMENT 3"="Thanks to Chris [mailto:cgmt@flashmail.com] for the "no WIN.INI" bug-fix!"
  24. "COMMENT 4"="Thanks to Petr Tandler [mailto:tanpe@volny.cz] for the "external modems only" note!"
  25.  
  26. sFile="SYSTEM.INI"
  27. sReg="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Ports\"
  28.  
  29. sSec="386Enh"
  30. sTa="COM"
  31. sTb="Buffer"
  32.  
  33. '*DEFAULT*
  34. 'sV_Normal="9600,n,8,1,x"
  35. '*BETTER*
  36. 'sV_Better="921600,n,8,1,p"
  37.  
  38. bIniMode=true
  39.  
  40.  
  41. Sub Plugin_Initialize  
  42.  bIniMode=true
  43.  
  44.  for i=1 to 5
  45.      s=sTa & i & sTb 
  46.      
  47.      if bIniMode then
  48.         s=IniReadValue(sFILE,sSec,s)
  49.      else
  50.         s=RegReadValue(sReg & s)
  51.      end if 
  52.  
  53.      SetUIElement i,s  
  54.  
  55.      'if s=sV_Better then
  56.      '   SetUIElement i,true
  57.      'end if 
  58.  next 
  59.  
  60. End Sub
  61.  
  62. Sub Plugin_CheckData(ElementIndex)
  63. End Sub
  64.  
  65. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  66.  for i=1 to 5
  67.      v=GetUIElement(i)
  68.      s=sTa & i & sTb 
  69.     
  70.      'if b=true then
  71.      '   sTemp=sV_Better
  72.      'else
  73.      '   sTemp=sV_Normal
  74.      'end if
  75.  
  76.  
  77.      if bIniMode then
  78.         Call IniWriteValue(sFILE,sSec,s,v) 
  79.      else
  80.         'Call RegWriteValue(sReg & s,sTemp,1)
  81.      end if
  82.  next 
  83.  
  84.  
  85.  
  86.  Call Restart()
  87. End Sub
  88.  
  89. Sub Plugin_Terminate 
  90. End Sub
  91.